macro mcall dest
	.dw dest
endm

macro mcallasm dest
	.dw dest
endm

macro mdouble val
	.dw twolit, val
endm

macro mnext label
	.dw next, ($-2)-(label+2)
endm

macro mif label
	.dw iff, (label-($-2))
endm

macro mifback label
	.dw ifback, ($-2)-(label)
endm

macro mnif label
	.dw nif, (label-($-2))
endm

macro ifdo label
	.dw iff, 6, label
endm

macro nifdo label
	.dw nif, 6, label
endm


macro colon
	jsr enter
	.db 0
endm

macro script
	jsr bytecode
	.db 0
endm

macro semi
	.dw exit
endm